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| BASSINIT_DFS 16-Sep-1984 236: AX-11 Bliss-32 v4.0 Page 
aoe 90: 36:03 BASRTL.SRC BASINIDFS. "382; 31 . (1) 

$ 1 001 MODULE GASOINET LF 5 ( ' Initialize DEF* frame 

3 ¢ Oe IDENT = '1-005° ' File: BASINIDFS.B3 

3 00 )= 

3 4 004 1 BEGIN 

; 5 B88? 1! 

, § 94) ! Se eat ena” iran” beak: Vac op Es 
3 'e 

; 8 int 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 B + 
eae 0009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
3 19 Baty ; ‘* ALL RIGHTS RESERVED. * 
Py H * 
$ i Oot 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND cores * 
3 1 01 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 14 0014 1 !* INCLUSI F THE ABOVE COPYRIGHT NOTICE. THIS ARE OR ANY THER * 
é 15 0015 1 !# COPI EREOF MAY NOT BE PROVIDED OR OT ISE MADE AVAILABLE TO ANY * 
: 16 8918 1 !@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
b4 \? sf ; TRANSFERRED. * 
3 7@ ® 
3 19 iets 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
5 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $3 4 1 : os CORPORATION. * 
° :* # 
3 $¢ 00 4 1 '= DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 $e oo : : ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
Py ; e 
; 626 B0¢6 1 !e * 
2 ev B05 4 lee eeeRRRARERREAAAAAAHAAAAAHREKAHH ERATE TE RAAT Aeee eRe eeeeeeeeeeeneee 
; @£ 028 1! 

3 7 Se? 1! 

3 0 0030 1 

; : ist 1 i PACILITY BASIC-PLUS=-2 F S t 

3 ! : - -2 Frame or 

a 5033 1 | =n 

3 34 0034 1 ! ABSTRACT: 

;. 0035 1! 

52 0036 1! These routines set up and tear down frames for BASIC“PLUS= -2. 

a 0037 1! Frames are used for main routines, external functio 

; 38 0038 1! external subroutines, internal functions (both DEFS. aid DEF *s) 

3 is 4 : internal subroutines (GOSUBs) and condition handlers. 

> 41 041 1 ' ENVIRONMENT: VAX=11 user mode 

; 642 ok 1! 

3 $? oye? ' AUTHOR: John Sauter, CREATION DATE: 10-Oct-78 

: 45 045 1 ! MODIFIED BY: 

3 46 04 1! 

: 47 04 1! - : VERSION 

: «648 0048 1 ! 1-001 = Original. Just a skelet 

; 49 0049 1 ' 1-002 = Change LIBSS and OTS$S 9 "stRs. This routine is still not 

; $0 0050 1! implemented. JBS 21-MAY-1979 

; 3) th ! : 1-003 - te code of'® routine, based on BASSINIT_DEF. 

: a $oa8 1 | 1-004 - Remove th WROMATPAC, not used. JBS 19-SEP-1979 

3 8 B28 ' 1-005 - Fix a comment. JBS 07-NOV-1 

: 56 36 

.. OF 0057 1! 


er we, oe SS Sa > ee ee ee Se a oc i ast = r 


di 2 
BASSINIT_DFS 16-Sep-1984 00:36: AX-11 Bliss-32 V4.0-74 Page 3 
witty 12-88-18 e 90: 38:3 BASATL. ReSeasiniors 62:1 . (2) 
; 60 038 1! 
; 6) 60 1 ! SWITCHES: 
; ? $e) : : 
3 ee O68 : SWITCHES ADDRESSING _MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
3; © 0065 1! 
3; 67 Bpe8 1 ! LINKAGES: 
>; 668 067 1! 
3 9 0068 1 
: 0 809% 1 LINKAGE 
‘ae 070 1 BASSINIT_LINK = JSB (REGISTER = 0, REGISTER = 1, REGISTER = 2) 
2 0071 1 GLOBAL (BSFSA_MAJOR_STG = 11, BSFSA_MINOR_STG = 10, BSFSA_TEMP_STG = 9) 
; fF BR7e 1 NOPRESERVE (8, 7, 6, 5, 4, 3, 2, 1, 0); 
s 7 00735 ~«(1 
; 0074 1! 
: 76 0075 1 ! TABLE OF CONTENTS: 
- 77 0076 1! 
.- 7 0077 1 
7 0078 1 FORWARD ROUTINE 
; 80 0079 1 BASSINIT_DFS_R8& : NOVALUE BASSINIT_LINK; ' start DEF®* 
; 8 0080 1 
; 0081 1! 
; 83 0082 1 ! INCLUDE FILES: 
; 0083 1! 
| a 0084 1 
3 ¥] 33 : REQUIRE "RTLIN:RTLPSECT'; ! macros for defing psects 
$ +4 tH : REQUIRE "RTLIN:BASFRAME'; ! Define frame structure 
: + O78 : REQUIRE *RTLIN:BASINARG'; ! Define argument List 
a = 0470 1 LIBRARY ‘RTLSTARLE'; ! System symbols 
se . 0471 1 
8 94 0472 1! 
: 95 047 1 ! MACROS: 
; 0474 1! 
3 97 0475 1! NONE 
ey Se 0476 1! 
; 99 0477 1 ! EQUATED SYMBOLS: 
: 100 0478 1! 
3: 101 0479 1! NONE 
: 102 0480 1! 
s 1035 0481 1 ! PSECTS: 
: 104 0482 1! - 
: 54 Sez ‘ DECLARE _PSECTS (BAS); ' declare psects for BASS facility 
3: 107 485 1 ! OWN STORAGE: 
: 108 0486 1! 
: 109 0487 1! NONE 
: 110 0488 1! 
3: (1711 89 1 ! EXTERNAL REFERENCES: 
: ie 490 1! 
3; 11 491 1 
; 61146 0492 1 EXTERNAL ROUTINE ; 
; 6115 4935 1 BASSSSIGNAL : NOVALUE, ! signals error ; 
: «116 494 1 STRSFREE1_DX, ! deallocates one string 


. es 
Fagggnt'-PFS 1er$ep-1986 11:58:07 — EBASRTLOSRCSBASINIDFS 892; 1 2 


: (117 0495 1 BASSHANDLER; ! handles signals 

; 118 Beas 1 

s 19 497 1 !4 

; 120 0498 1 ! The following are the error codes used in this module. 

s je 0499 1 !- 

; ¥ ¢ 0500 1 

9 0501 1 EXTERNAL LITERAL 

> 124 0502 1 BASSK_TOOFEWARG : UNSIGNED (8), ! Too few arguments 

; 25 0503 1 BASSK_TOOMANARG : UNSIGNED (8), ! Too many arguments 

3 Ve 0504 1 BASSK_SCAFACINT : UNSIGNED (8), ! Scale factor interlock 
3; ler 0505 1 BASSK_PROLOSSOR : UNSIGNED (8), ! Program lost, sorry 

; 128 0506 1 BASSK_ARGDONMAT : UNSIGNED (8), ! Arguments don't match 
3 1? e444 : BASSK_NOTIMP : UNSIGNED (8); ! Not implemented 


co 


é 
BASSINIT_DFS 1bese -1984 236: AX-11 Bliss-32 v4.0-74 Page 5 
met eet ae ts 1 90: 38:03 BASRTL. RETBASINIDES 69251 . (3) 
GLOBAL ROUTINE BASSINIT_DFS_RB ( ' start DEF®* 
ARGLIST ! frame parameters 


Wi wr 


DATA_RELOC i start of data 
) : NOVACUE BASSINIT_LINK = 
lee 
FUNCTIONAL DESCRIPTION: 
i Set up a frame for a BASIC-PLUS-2 DEF*®. The frame is allocated 
on the stack, and R10 and R9 are set up to point to it. 
The argument tells how to do the allocation. 


i FORMAL PARAMETERS: 


pejejelelelololo) 


ARGLIST.rl.v List of information needed to set up the 
frame. See BASIC-PLUS-2/VAX Description 
of Generated Code for details. 
DATA_RELOC.ra.v Address of the major procedure's contribution 
to the data PSECT. This is needed so that the 
argument List can be PIC. 


i IMPLICIT INPUTS: 


——- 
WR "OO ONAOUE WN "OO CONOUE WO 


PPAD AAAI 
AWA ALAIIRITURINIFIIINIIINY — ss a a 


The values of R10 and RY, which point to the automatic 
storage and the temporary storage, respectively. 


ROUTINE VALUE: 
NONE 
COMPLETION CODES: 


1 

1 

1 

1 

1 

1 

1 

1 

1 ' 

1 ' 

1 ' 

1 ' 

1 ' 

1 ' 

1 ' 

1 ' 

1 ' 

1 ‘ 

1 ' 

1 ' 

1 '‘ 

1 1 

1 1 

' NONE 

: IMPLICIT OUTPUTS: 

1 ' 

1 ' 

1 i 

1 ' 

4 ' 

1 ' 

1 ' 

1 ‘ 

1 ! 

' NONE 

: SIDE EFFECTS: 

ee: Leaves lots of things on the stack for use by the compiled 
; BASIC-PLUS=2 code. These things will be removed by 
1 ' 
1 ' 


: i SI b 
: BSFSA_MAJOR_STG 1 

. ® b G F 

: AP, 

: FP. 
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BASSEND_DFS_R8. 
BEGIN 
EXTERNAL REGISTER 
1 € “STG : REF BLOCK (0, BY E FIELD (BSFSMAJOR_FRAME), 
é 5 BSFSA-MINOR-STG : REF BLOCK CO, BYTE) FIELD (BSFSMINOR—FRAME), 
5 BSFSA-TEMP_STG; 
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BUILTIN 
SP; 
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= 
co 
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wr 
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For at ot ot ot 
ws — 
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w PUPP DV PVPS SVSVSVSVSTSVSI STS 
WO 0.090000 09 09 09 09 09 0909 SI NIN NII NI NNO OOO 
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MAPA AMIUMIUIUIUTIUT 


woowoowovond 
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MAP 
AP : REF VECTOR; 


ARGLIST : REF BLOCK CO, BYTE) FIELD (BASSINIT_AR 


+ 
' Define local variables a 


REGISTER 
RETURN. ADDRESS, 
FMP : REF BLOCK CO 
ARRAY_DESC : REF B 
ARRAY~ INDEX; 


RETURN_ADDRESS = ..SP; 


te 
Allocate frame control d 


t+ 
i LOAD Rn (R10) 
BSFSA_MINOR_STG = .SP 


FMP CBSFSL-INIT“REL 


'¢ 


EG 

Pp -SP = XUPVAL; 
SP = 0; 
ND; 


s registers. 


’ erred FIELD 
LOCK CO, BYTE), 


ata. 


- 127; 


M 2 
1ecSep-198e 11:55:07 EBASR 


! caller 


S), 
Ss arg List 


§ 


1 
TL 


We cannot have any stack locals 
} since we manipulate the stack pointer in this routine. 


(BSFSFCD), : 


' address to return to 
pointer to FCD 
! pointer to build arra 


! index for array modif 


Make sure we are passed an argument List we understand. 


FMP = .FP; 
SP = .FMP = BSFSK_LENFCDDFS * ZUPVAL; 


'¢ 
: Initialize parts of the frame control data. 


FMP CBSFSA_MARK) = 0; 

FMP BSF SA_BASE_R111 = .BSFSA_MAJOR_STG; 

FMP CBSF$A_BASE-R10) = .BSFSA-MINOR-STG; 

FMP CBSFSB-LEN_FCD) = BSFSK_LENFCDDFS; 

FMP CBSF$B-PROC_CODE) = .ARGLIST CBAS$B_IN_PROC CJ; 
FMP CBSF$W_FCD FLAGS) = ,ARGLIST CBAS$W-IN-FLAGS); 
FMP CBSFSA_PROC_ID) = .ARGLIST CBASSL_IN_P 

FMP [BSFS$A~INIT-ARG] = .ARGLIST; 


'¢ 
Save return address because we are going to fool with the stack 


ROC_1] + .DATA_RELOC; 


Allocate numeric scalars. They are all initialized to zero. 


1c 


tt Vv 
RCJBAS 


Pt eS 
BASINIDFS.852;1 


' arg List 


descriptors 
ation 


IF (.ARGLIST CBAS$B_IN_V_FCD] NEQ BAS$K_IN_V_FCD) THEN BASSS$SIGNAL (BASSK_NOTIMP); 
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12-808 - 1 3be 99:38:97 BASRTL. RCIBASINIDFS.B 231 a (3) 

4 

Copy formals. 


DECR COUNTER FROM MIN (.ARGLIST CBAS$B_IN_NO_FMLJ, ((.AP COJ) AND 255)) TO 1 DO 
SP = .SP = %UPVAL; 
SP = AP C. COUNTER); 


'¢ 
Allocate and initialize descriptors. ) 


‘a SP = .SP = .ARGLIST CBASSL_IN_LEN_DT]; 

; Set ARRAY_DESC to point to the space allocated. 

ARRAY_DESC = .SP; 

i Load the space from the temfitate and then modify it based 

; on the modification table. 

men ee FROM 0 TO ((.ARGLIST CBASSL_IN_LEN_DT]*-2) = 1) DO 


ARRAY_DESC C.COUNTER*ZUPVAL, 0, XBPVAL, 0] = .((.ARGLIST CBASSL_IN.DT_TMT]) + |! 
gDATALRELOC + (.COUNTER®ZUPVAL)); 


'¢ 
Now modify the descriptors. These are usually array descriptors. 


ee ee FROM 0 TO (.ARGLIST CBASSL_IN_LEN_DM] - 1) DO 


ARRAY_INDEX = .((.ARGLIST CBASS$L_IN_DT_MOD]) + .DATA_RELOC + (.COUNTER*ZUPVAL)); 
BSFSA_MINOR_STG C.ARRAY_INDEX, 0, XBPVAL, 0) ! 
ENRON AOR. STG C.ARRAY_INDEX, 0, %BPVAL, 0] + .BSFSA_MINOR_STG; 


te 

: Allocate dynamic string descriptors. 

comme” 3 Vani FROM 1 TO .ARGLIST CBAS$W_IN_NO_DSTJ DO 
SP = .SP = ZUPVAL; 


SP = ! Pointer C implies not allocated. 
SP = .SP = %uP 


VAL 
BLOCK [.SP, DSC$B_CLASS; 0. ByTE} = DSCS$K_CLASS_D; ' dynamic 
BLOCK £.SP, DSCSB-DTYPE: 0, BYTE) = DSCSK-DTYPE-T: i text 
.SP, DSCSWILENGTH; 6, BYTE) = 0; 'Length = 0 


BLOCK 
END; 
FMP CBSFSA_STR_DESC) = .SP; 
i Allocate fixed string templates. 
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wy 
oo a 
one lg 


Wun S&S 


ooo 


NOUP UN MO ODIO MP WOOD Ie 


ODDO OCOCOOCOCOOOO 
PAEAPEAAAASAA AAO 

re Dvele To Je Te Je Je Te -Jo ste Te «] 

S—§OODONAOULSWN Oo 


WWIWANINAANNANAWI OW 
oO 


' M3 


cat ty ee epee ae WMIPMOPUROTUROTD 
Wr OOo 


NOV EWR—OOONOW 


AAAI NIE IAIN AIAN WWI 
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RES 


Aw 
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song” 1 ig FROM 1 TO .ARGLIST CBAS$W_IN_NO_FST] DO 


EGIN 
SP = .SP = X%UPVAL; 

Sey . ane ! Pointer 0 implies not allocated. 
BLOCK [.SP, DSC$B.CLASS; 0, BYTE] = DSC$K_CLASS_S; ' fixed 
BLOCK (.SP, DSC$B-DTYPE: 0, BYTE] = DSCSK-DTYPE-T; i text 
BLOCK .SP, DSCSWILENGTH; 6, BYTE] = 0; !“Length = 0 


'¢ 
} Allocate numeric array elements. They are all initialized to zero. 


EG 

P = .SP = ZUPVAL; 

SP = 0; 

ND; 

'¢ 

Allocate temporary cells. 

IF ((.ARGLIST CBAS$L_IN_NO_TST] NEQ 0) OR (.ARGLIST CBAS$L_IN_NO_NMT] NEQ 0)) 
BEGIN 


! We must set up R9. First allocate string temporaries. 


capa” +3 igs FROM 1 TO .ARGLIST CBAS$L_IN_NO_TST] DO 
SP = .SP = ZUPVAL ; 


-SP = Q; ! Pointer 0 implies not allocated. 
SP = .SP = Xu 


PVAL; 

BLOCK [.SP, DSC$B_CLASS; 0, BYTE] = DSCSK_CLASS_D; ! dynamic 
BLOCK C.SP. DSC$B"DTYPE: 0. BYTE] = DSCSK“DTYPE-T: | text 
BLOCK C.SP. DSCSWILENGTH; 6, BYTE] = 0; ! [éngth = 0 


END; 


point R9 to the last string descriptor allocated. 
BSFSA_TEMP_STG = .SP; 
i Now allocate numeric temporaries. 

oe .SP = .ARGLIST CBAS$L_IN_NO_NMT); 
te 
; Store R9 in the stack frame for setting up 1/0 ‘ists. 
FMP CBSFSA_BASE_R9] = .BSFSA_TEMP_STG; 
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SINIT OFS 


1984 39:88:07 — YeAsrre Sat iBAsiNt 
'¢ 


; Complete frame. 


FMP CBSFSA_BASE SP] = .SP; 
FMP CBSFSA-HANDCER] = BASSHANDLER; 


First consistency checks. 
IF (CCAP C02) AND 255) NEQ .ARGLIST CBAS$B_IN_NO_FHL]) 


ithe number of arguments is incorrect. 
BEGIN 
= bloga COJ) AND 255) GTRU .ARGLIST CBAS$B_IN_NO_FMLJ) 
1% BASSSSIGNAL (BAS$K_TOOMANARG) 
BASSSSIGNAL (BAS$K_TOOFEWARG) ; 
END; 
saat CBSFS$W_FCD_FLAGS]) AND (BSFSM_FCD_RSTR)) NEQ 0) 
BEGIN 


LOCAL 
STR_DESC_ADDR : REF BLOCK (8, BYTE); 


'¢ 
! This procedure has been marked by the compiler as returning a 


' String result. Be sure that there is at least one formal, and 
that it is a dynamic string descriptor. If so, null its value. 


IF (.ARGLIST CBAS$B_IN_NO_FML] LSSU 1) THEN BASSSSIGNAL (BASSK_TOOFEWARG); 


STR_DESC_ADDR = AP (1); 
STR-DESC-ADDR = ..STR_DESC_ADOR; 


IF ((.STR_DESC_ADDR CDSC$B_CLASS] NEQU DSCSK_CLASS_ 
(STRIDESC-ADDR CDSCSB~DTYPE] NEQU DSCSK-DTYPE- 


N 
BASSSSIGNAL (BAS$K_ARGDONMAT) ; 


D) OR : 
T)) 


'¢ 
! Null the string. This insures that, if the procedure does not reference 
the string, the function will have the value of the null string. 


STRSFREE1_DX (.STR_DESC_ADDR); 
END; 
'¢ 


A Phy return address back on the stack so we can return to the 
' caller. 


Dd 53 
vege “ott 1eseb713ke 11:88:07 © Heasare Snedeagintors 692;1 Pose 1 
3 ci 13 Sp s .SP = BUP 
: 419 796 * a3 < RETURN PADDRESS; 
; 25 0798 END; ' of BASSINIT_DFS_RB 


BASSINIT_DFS 
\1=005\ 
BASSSSIGNAL, STRSFREE1 Dx 


eEXTRN BASSHANDLER pBASSK. TOOFEWARG 
-EXTRN BASSK_TOOMANARG 


.*. « 
mm 4 
xx OF; 
“— n- 
zp 2 
za —m 


-EXTRN BASSK-NOTIMP 
.PSECT _BASSCODE.NOWRT, SHR, PIC.2 


57 51 D0 00000 BASSINIT_DFS_R8:: 
MOVE R }- HY ; 0509 
54 50 D0 00003 MOVE 3 
52 6E DO 00006 MOVL eb) “RETURN ADDRESS + 0585 
01 06 AS 91 00009 CMPB ss G@(ARGLIST), 91 : 0590 
0B 13 00000 BEQL : 
7E 006 8F 9A O000F MOVZBL #BASSK NOTIMP ue : 
000000006 00 01 FB 00013 CALLS , BASSSSI ; 
53 5D DO OOO1A 1$: MOVL : 0595 
5E D8 A3 9E 0001D MOVAB PE OCRS) : 0596 
SA 81 AE 9E 00021 MOVAB <-127(SP), sESFSA _MINOR_STG ; 0600 
ce ps 90025 CLRL 30s 4 > 0604 
FO AB 5A 70 00028 MOVO BSFSA MINOR S16, -16(FMP) + 0606 
E46 AS 2c 90 000 ¢ MOVB 44, =28(FM : 0607 
£5 AS 05 Aas 90 000 MOVB  5S(ARGLIST), - 7CEMP) : 0608 
£6 «AB 06 A& BO 00035 MOVW  6(ARGLIST) : 0509 
E8 As 08 B447 9 0003A MOVAB a@8(ARGLISTS DATA, RELOC), -24(F MP) : 0610 
D8 AS 54 D0 00040 MOVL ARGLIST -40(F : 0611 
DC OAS 57 00 00044 MOVL DATA RELOC, -36(F MP) ; 061¢ 
50 D4 00048 CLAL £0 ; 061 
05 11 OO04A BRB ; 
5E 04 C2 b904¢ 2$ SUBL2 #4, SP : 0619 
6E D4 O004F CLRL : 0620 
F6 50 10 AG £3 99051 3$ AOBLEQ 16(ARGLIST), COUNTER, 2% : 0617 
50 14 A& 9A 00056 MOVZBL 2 CARGLIST), RO > 0627 
50 6C 91 O005A (AP), R : 
03 1€ 0005D BGEQU 4$ ; 
50 6C 9A 0005F MOVZBL (AP), RO ; 
50 06 0062 4$ INCL COUNTER ; 
07 11 00064 BRB F 
SE 4 C2 00066 5$: SUBL2 ie ; 0629 
a3 6C40 DO 0006 MOVL tab) COUNTER], (SP) ; 06 
FS 50 F5 00 $0 68: SOBGIR 32 TER, 5$ ; ¢? 
3E 18 A& C2 00070 SUBL2 4CARGL LST) ; 06 
5 5E p 0074 MOVL RAY bese” > 0640 
56 18 AG FE gf 00077 ASHL a3," PO CARGL IST). R6 > 064 
51 1 CE 0007D MNEGL cbuntes > 064 


peaert os 


ED 


wn 
oo 


F7 


EC 


1 
1 
QA 11 
57 1c AG OCC 
6041 6541 8 
5} Bf CE 000 
F fT 9009 
27 24 AG CC 9 
0 6541 g0 9A 
604A 9F 000 
9E 5A £9 QOA 
2} $3 AS £2 QO0A4 
1 8 AG Bap 
50 D4 AD 
F 11 QOOAF 
5E 4 C2 00081 
E 04 00084 
5E 4 ¢ B008 
g 020E0000 F OD 08 
1 F3 000CO 
EO A SE b° Q00C4 
51 2A =6AG «35C 0008 
50 04 QO0CC 
OF 11 000C 
5E 04 C2 000d 
6— 04 000D 
5E 4 C2 00005 
6€ 010E0000 F 00 00008 
50 1 &3 OOODF 
2c AG FE 8F 78 OO0E3 
51 04 QO0E9 
05 11 OOOEB 
5E 04 C2 OO0ED 
6E D4 O00FO 
51 50 fe Q00F 2 
30 =A& D5 000F6 
05 12 000F9 
34 AS D5 O00FB 
1F Boone 
50 04 001 
OF 11 Bat 8g 
SE 04 C2 00104 
6— 04 00107 
Hi 020€00 f 09 00100 
Sp emg A PS OI 
59 SE D Bi 
5 bt an ., nS 118 
EC A 3? DO OO11F 
FB OA f + 01 ; 
63 000000006 0 ; 01 
14 AG $6 9 1 3 
15 13 001 
6 18 001 
7€ 00G 8F 9A 4 
4 11 QO13A 
43 00G 8F 9A 4 ¢ 
000000006 0 1 FB 00140 


pa19B6 11:38:07 


th tg V4.0-74 
BASRTL.SRCJBASINIDFS.852;1 


(ARGLIST), DATA_RELOC, RS 
(RS) CCOUNTER, (ARRAY_DESC)CCOUNTER] 
Ré, COUNTER, *$ 
“ COUNTER 
36(ARGLIST), DATA_RELOC, RS 
(RS) CCOUNTER], ARRAY_INDEX 
(ARRAY_ INDEX) (BSFSA_MINOR_STG) 
8 FSA_MINOR_STG, a(SP)+ 

(ARGLIST)> COUNTER, 9 
4OC(ARGLIST), R1 
COUNTER 
a4, SP 


yA sp 
#34471936, (SP) 
Ri, COUNTER 1 
SP. =32(FMP 
42(ARGLIST), R1 
COUNTER 

i 

(SP 


#4, SP 
#17694720, (SP) 
R1, COUNTER, 13$ 
#-2, 44(ARGLIST), RO 
COUNTER 

16$ 

#4, SP 

(SP) 

RO, COUNTER, 
48(ARGLIST) 
52(ARGLIST) 


SP 
) 
15$ 


) 
3 

471936, (SP) 

ARGLISf) COUNTER, 18$ 


a 
a3 
48( 
$P BSFSA_TEMP 
2¢ARGLIST), $ 
BSFSA_TEMP_STG, -20(FMP) 
SP, -B(FMPY 
BASSHANDLER, (FMP) 
(AP), 20(ARGLIST) 
i 
ASSK_TOOMANARG, -(SP) 


#BASSK TOOFEWARG, -(SP) 
#1, BASSS$SIGNAL 


= 
Wonoe 


Soo 


Oo 
~ 
wv 
N 


o-oo 


Si 


| 
| 


F 3 
BA NIT_DFS 16-Sep-19 
itt 127308718 
37 6 AB 0D F 147 238: 
OB 13 ooler 
7 006 9A 00151 
000000006 1 §B 00155 
04 eh i 1a 24$ 
02 03 A #1 163 
oc of Boge 
ie 006 BF 9A 16F 25$: 
000000006 0 } FB 73 am 
000000006 00 01 F 0017¢ ‘ 
ef 83 66 bose 
05 $0189 
; Routine Size: 5394 bytes, Routine Base: _BASSCODE + 0000 
: 42 0799 1 
: 42 0800 1 END 
> 424 0801 1 
: 425 0802 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: _BASSCODE 394 NOVEC,NOWRT, RD, EXE, SHR, 
; Library Statistics 
Sele hie ite eset Poe, ea eee Gain Symbols -------- 
: File Total ivaded Percent 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 4 0 


COMMAND QUALIFIERS 


LCL, 


Pages 
Mapped 


581 


Be 99:88:07 © LaAsare $aeSeacuntors 62.1 


#13 <26(FMP), 278 
gO CARGLI 
#BASSK TOOFEWARG, =(SP) 
#i, BAS 
4(Ap) STR_D tee ADDR 
R_bES Crp E aS STR _DESC_ADDR 
(SR. best ADORS, 
(STR. DESC_ADDR), #14 


a SSficane” -(SP) 
stp BAsSS 1 GNA 


1," STRSFREET, Dx 
Bu: 3p ADDRESS, (SP) 


REL, CON, PIC,ALIGN(2) 


Processing 
Time 


00:01.1 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:BASINIDFS/O0BJ=0BJ$:BASINIDFS MSRC$:BASINIDFS/UPDATE=(ENHS:BASINIDFS 


3 


a aac ifort gts 9:58:87 EBkSate SReSeasintors 092; ree ts 
; ) 

pisces. 394 gods ¢ 0 data bytes 

; Elapsed Time: 4.9 


3 Lines/CPU Min: Babe 
3 Levemes/CPU-Min: 20699 
; "Y Used: 170 pages 
; Compilation Complete 


N24 AH BT13A- SE L EQUIPMENT CORPORATION 
WWE _vax/vMS v4.0 ENTIAL AND PROPRIETARY _ 


